home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / filenames1.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  45 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    FileNames1.mod
  3.   :Contents.   Funktionierendes GetExtension (s. FileNames)
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9.   :Remark.     GetExtension aus FileNames liefert bei mir keine
  10.   :Remark.     sinnvollen Resultate !?
  11. ----------------------------------------------------------------------*)
  12.  
  13. IMPLEMENTATION MODULE FileNames1;
  14.  
  15. FROM Str   IMPORT LastPos, noOccur, first, Length;
  16. FROM ASCII IMPORT nul;
  17.  
  18. PROCEDURE GetExtension (VAR fname, extension : ARRAY OF CHAR;
  19.                         VAR len : INTEGER);
  20. (* Aufspalten eines Filenamens in Namen und Erweiterung *)
  21.  
  22. VAR Pos, i : INTEGER;
  23.     LenExt : INTEGER;
  24.  
  25. BEGIN
  26.  
  27.  Pos := LastPos (fname,HIGH(fname),".");
  28.  
  29.  IF (Pos # noOccur) THEN
  30.     LenExt := INTEGER(Length(fname)) - Pos;
  31.     FOR i:=first TO LenExt DO
  32.         extension[i] := fname[i+Pos];
  33.     END;
  34.     extension[LenExt+1] := nul;
  35.  
  36.     fname[Pos] := nul;
  37.  ELSE
  38.     extension := nul;
  39.  END; (*IF*)
  40.  len := Length(fname);
  41.  
  42. END GetExtension;
  43.  
  44. END FileNames1.
  45.